home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / frmweb1a / frame.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-23  |  3.6 KB  |  110 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  4. Begin VB.MDIForm frmFrame 
  5.    BackColor       =   &H8000000C&
  6.    Caption         =   "Main form"
  7.    ClientHeight    =   3195
  8.    ClientLeft      =   165
  9.    ClientTop       =   735
  10.    ClientWidth     =   4680
  11.    LinkTopic       =   "MDIForm1"
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin MSComDlg.CommonDialog CommonDialog1 
  14.       Left            =   690
  15.       Top             =   1440
  16.       _ExtentX        =   847
  17.       _ExtentY        =   847
  18.       _Version        =   393216
  19.    End
  20.    Begin MSComctlLib.Toolbar FrameToolBar 
  21.       Align           =   1  'Align Top
  22.       Height          =   420
  23.       Left            =   0
  24.       TabIndex        =   0
  25.       Top             =   0
  26.       Width           =   4680
  27.       _ExtentX        =   8255
  28.       _ExtentY        =   741
  29.       ButtonWidth     =   609
  30.       ButtonHeight    =   582
  31.       Appearance      =   1
  32.       ImageList       =   "ImageList1"
  33.       _Version        =   393216
  34.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  35.          NumButtons      =   2
  36.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  37.             Style           =   3
  38.          EndProperty
  39.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  40.             Key             =   "tbrOpen"
  41.             ImageKey        =   "tbrOpen"
  42.          EndProperty
  43.       EndProperty
  44.    End
  45.    Begin MSComctlLib.ImageList ImageList1 
  46.       Left            =   1530
  47.       Top             =   1380
  48.       _ExtentX        =   1005
  49.       _ExtentY        =   1005
  50.       BackColor       =   -2147483643
  51.       ImageWidth      =   16
  52.       ImageHeight     =   16
  53.       MaskColor       =   12632256
  54.       _Version        =   393216
  55.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  56.          NumListImages   =   1
  57.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  58.             Picture         =   "Frame.frx":0000
  59.             Key             =   "tbrOpen"
  60.          EndProperty
  61.       EndProperty
  62.    End
  63.    Begin MSComctlLib.StatusBar StatusBar1 
  64.       Align           =   2  'Align Bottom
  65.       Height          =   255
  66.       Left            =   0
  67.       TabIndex        =   1
  68.       Top             =   2940
  69.       Width           =   4680
  70.       _ExtentX        =   8255
  71.       _ExtentY        =   450
  72.       _Version        =   393216
  73.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  74.          NumPanels       =   1
  75.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  76.          EndProperty
  77.       EndProperty
  78.    End
  79.    Begin VB.Menu mnuFile 
  80.       Caption         =   "&File"
  81.       Begin VB.Menu mnuFileWebBrowser 
  82.          Caption         =   "&Web browser"
  83.       End
  84.       Begin VB.Menu mnuFileExit 
  85.          Caption         =   "E&xit"
  86.       End
  87.    End
  88. Attribute VB_Name = "frmFrame"
  89. Attribute VB_GlobalNameSpace = False
  90. Attribute VB_Creatable = False
  91. Attribute VB_PredeclaredId = True
  92. Attribute VB_Exposed = False
  93. ' Frame.frm
  94. ' By Herman Liu
  95. ' Important: See remarks in WebBrowser.frm.
  96. Option Explicit
  97. Private Sub MDIForm_Load()
  98.     Me.WindowState = 2
  99.     frmWebBrowser.Show
  100. End Sub
  101. Private Sub mnuFileWebBrowser_Click()
  102.     frmWebBrowser.Show
  103. End Sub
  104. Private Sub FrameToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)
  105.     mnuFileWebBrowser_Click
  106. End Sub
  107. Private Sub mnuFileExit_Click()
  108.     End
  109. End Sub
  110.